home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 February / 1994-02b.d64 / simple input.pp (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  384b  |  9 lines
  1. 49100 rem simple input
  2. 49110 cu$=" [157]":printx$cu$;:p=0:x$=""
  3. 49120 poke204,0:wait198,7:poke204,1:gety$:y=asc(y$):ify=13then49170
  4. 49130 ify=20andp>0thenp=p-1:printy$cu$;:x$=left$(x$,len(x$)-1):goto49120
  5. 49140 ifp>=xthen49120
  6. 49150 ify$<" "ory$>"[218]"or(y$<"[193]"andy$>"_")then49120
  7. 49160 printy$cu$;:x$=x$+y$:p=p+1:goto49120
  8. 49170 print" ":x=len(x$):return
  9.